; $VER Wzonka-Lad Installer Script 0.5 (15-Jan-97)
; Installer made by Lennart Johannesson
; For comments, bugs (yes, I know there's a lot of them)
; suggestions etc. write to: 95lenjo@ostrabo.uddevalla.se


;---------------------------------------------
;|Asks where to place the wzonkalad directory| 
;---------------------------------------------

(set @default-dest 
    (askdir (prompt "Where would you like me to create the\n\"WzonkaLad\" directory?")
            (help @askdir-help)
            (default "ram:")
            (newpath)
    )
)

;-----------------------------
;|Creates Wzonkalad directory|
;-----------------------------


(set target
	(tackon @default-dest (cat "WzonkaLad")))

(makedir target
 	(prompt "Creating directory:\n\""target"\"")
	(help @makedir-help)
	(infos)
)

(set @default-dest (target))

;-------------------------
;|Installs the executable|
;-------------------------

(copyfiles
	(prompt "Where would you like me to put the executable?")
	(help @copyfiles-help)
	(source "WzonkaLad")
	(dest @default-dest)
	(files)
	(infos)
	(confirm)
)

(set @default-dest (target))

;------------------------
;|Installs the documents|
;------------------------

(copyfiles
	(prompt "Would you like to install the documents?")
	(help @copyfiles-help)
	(source "WzonkaLad.guide")
	(dest @default-dest)
	(files)
	(infos)
	(confirm)
)

;---------------------------
;|Installs lowlevel.library|
;---------------------------

(set @default-dest "libs:")

(copylib
	(prompt "Install lowlevel.library?\n(Required for CD32 Joypad!)")
	(help @copylib-help)
	(source "libs/lowlevel.library")
	(dest @default-dest)
	(confirm)
)


;--------------------
;|Installs the fonts|
;--------------------

(set @default-dest "fonts:")

(copyfiles
	(prompt "And the fonts...\nWhere do I put them?")
	(help @copyfiles-help)
	(source "fonts/")
	(dest @default-dest)
	(all)
	(confirm)
)

;----------------------------------
;|Installs the sample cartridge(s)|
;----------------------------------

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "Where would you like to store your cartridges?\n(A drawer called Cartridges will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
    )
)

(set @default-dest
	(tackon @default-dest (cat "Cartridges")))

(makedir @default-dest
	(prompt "Making directory...")
	(help @makedir-help)
	(infos)
)


(copyfiles
	(prompt "Install the sample cartridge to:\n")
	(help @copyfiles-help)
	(source "cartridges")
	(dest @default-dest)
	(confirm)
	(all)
)

;--------------------------
;|Installs the extra Icons|
;--------------------------

(set @default-dest (target))

(set @default-dest
(askdir	(prompt "Where do you want the extra-Icons?\n(A drawer called Icons will be made!)")
	(help @askdir-help)
	(default @default-dest)
	(newpath)
        )
    )

(set @default-dest
	(tackon @default-dest (cat "Icons")))

(makedir @default-dest
	(prompt "Making directory...")
	(help @makedir-help)
	(infos)
)


(copyfiles
	(prompt "Install the extra-Icons to:\n")
	(help @copyfiles-help)
	(source "Icons")
	(dest @default-dest)
	(confirm)
	(all)
)

;--------------------------------
;|Write some copyright stuff Out|
;--------------------------------


(set @default-dest (target))

(message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1997")
